home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 June / 64er_Magazin_86-06_1986_Markt__Technik_de_Side_A.d64 / def fn sinnvoll (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  649b  |  20 lines
  1. 10 td=56328:rem echtzeituhr sec/10-register
  2. 20 poketd+6,peek(td+6)and127:rem 50 hz einstellen
  3. 30 def fn u4(x) = (xand15):rem untere 4 bits von x
  4. 40 def fn o4(x)=(xand240)/16:rem obere 4 bits
  5. 50 def fn dc(x)=fn u4(x)+fn o4(x)*10:rem wert bei bcd-codierung
  6. 60 def fn di(x)=fn dc(peek(x)and127):rem bcd-inhalt von x ohne bit 7
  7. 70 def fn h(x)=fn di(td+3):rem stunden
  8. 80 def fn m(x)=fn di(td+2):rem minuten
  9. 90 def fn s(x)=fn di(td+1):rem sekunden
  10. 100 def fn dh(x)=x-int(x/10)*10+int(x/10)*16:rem dezimal nach bcd
  11. 110 input"uhrzeit hh,mm,ss";hh,mm,ss
  12. 120 ifhh>12thenhh=hh-12
  13. 130 poketd+3,fn dh(hh):rem uhr stellen
  14. 140 poketd+2,fn dh(mm)
  15. 150 poketd+1,fn dh(ss)
  16. 160 poketd+0,0
  17. 170 print"[147]"
  18. 180 print""fn h(x)"[157]"fn m(x)"[157]"fn s(x)"[157]"peek(td)"";
  19. 190 goto180
  20.